inherited fmBaseCode: TfmBaseCode
  Caption = #22522#30784#20195#30721
  ClientHeight = 462
  ClientWidth = 759
  ExplicitWidth = 767
  ExplicitHeight = 489
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Height = 436
    ExplicitHeight = 436
  end
  inherited pnlRight: TPanel
    Width = 586
    Height = 436
    TabOrder = 2
    ExplicitWidth = 586
    ExplicitHeight = 436
    inherited lblBrowser: TLabel
      Width = 583
      ExplicitWidth = 586
    end
    inherited pnlRightBottom: TPanel
      Top = 217
      Width = 583
      ExplicitTop = 217
      ExplicitWidth = 583
      inherited tbctrlDetails: TcxTabControl
        Width = 583
        ExplicitWidth = 583
        ClientRectRight = 583
        inherited grdDetails: TcxGrid
          Left = 0
          Top = 0
          Width = 583
          Height = 216
          ExplicitLeft = 0
          ExplicitTop = 0
          ExplicitWidth = 583
          ExplicitHeight = 216
        end
      end
    end
    inherited grdBrowser: TcxGrid
      Width = 583
      Height = 189
      ExplicitWidth = 583
      ExplicitHeight = 189
      inherited tvBrowser: TcxGridDBBandedTableView
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skCount
            Column = tvBrowserColumn1
          end>
        OptionsSelection.CellSelect = True
        OptionsView.ColumnAutoWidth = True
        Bands = <
          item
          end
          item
            Visible = False
          end>
        inherited tvBrowserId: TcxGridDBBandedColumn
          Visible = False
        end
        object tvBrowserColumn1: TcxGridDBBandedColumn
          Visible = False
          Width = 100
          Position.BandIndex = 0
          Position.ColIndex = 6
          Position.RowIndex = 0
        end
        object tvBrowserColumn2: TcxGridDBBandedColumn
          Visible = False
          Width = 100
          Position.BandIndex = 0
          Position.ColIndex = 1
          Position.RowIndex = 0
        end
        object tvBrowserColumn3: TcxGridDBBandedColumn
          Visible = False
          Width = 100
          Position.BandIndex = 0
          Position.ColIndex = 2
          Position.RowIndex = 0
        end
        object tvBrowserColumn4: TcxGridDBBandedColumn
          Visible = False
          Width = 100
          Position.BandIndex = 0
          Position.ColIndex = 3
          Position.RowIndex = 0
        end
        object tvBrowserColumn5: TcxGridDBBandedColumn
          Visible = False
          Width = 100
          Position.BandIndex = 0
          Position.ColIndex = 4
          Position.RowIndex = 0
        end
        object tvBrowserColumn6: TcxGridDBBandedColumn
          Visible = False
          Width = 100
          Position.BandIndex = 0
          Position.ColIndex = 5
          Position.RowIndex = 0
        end
      end
    end
  end
  inherited pnlLeft: TPanel
    Height = 436
    ExplicitHeight = 436
    inherited vstClasses: TVirtualStringTree
      Height = 430
      ExplicitHeight = 430
    end
  end
  inherited dsBrowser: TDADataSource
    DataSet = tblBrowser.Dataset
  end
  inherited tblBrowser: TDAMemDataTable
    RemoteUpdatesOptions = [ruoOnPost]
    BeforeEdit = tblBrowserBeforeEdit
    BeforePost = tblBrowserBeforePost
    BeforeDelete = tblBrowserBeforeDelete
    Left = 232
  end
  inherited bmBrowser: TdxBarManager
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    DockControlHeights = (
      0
      0
      26
      0)
    inherited BarMain: TdxBar
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbtnNew'
        end
        item
          Visible = True
          ItemName = 'bbtnEdit'
        end
        item
          UserDefine = [udPaintStyle]
          UserPaintStyle = psCaptionGlyph
          Visible = True
          ItemName = 'bbtnSave'
        end
        item
          UserDefine = [udPaintStyle]
          UserPaintStyle = psCaptionGlyph
          Visible = True
          ItemName = 'bbtnCancel'
        end
        item
          BeginGroup = True
          UserDefine = [udPaintStyle]
          UserPaintStyle = psCaptionGlyph
          Visible = True
          ItemName = 'bbtnRefresh'
        end
        item
          Visible = True
          ItemName = 'bbtnView'
        end
        item
          Visible = True
          ItemName = 'bbtnDelete'
        end
        item
          BeginGroup = True
          UserDefine = [udWidth]
          UserWidth = 126
          Visible = True
          ItemName = 'bedtFilter'
        end>
    end
    inherited bbtnEdit: TdxBarButton
      Visible = ivNever
    end
    inherited bbtnView: TdxBarButton
      Visible = ivNever
      OnClick = nil
    end
    inherited bbtnRefresh: TdxBarButton
      Visible = ivNever
    end
    object bbtnSave: TdxBarButton
      Caption = #20445#23384
      Category = 0
      Hint = #20445#23384
      Visible = ivAlways
      ImageIndex = 216
      OnClick = bbtnSaveClick
    end
    object bbtnCancel: TdxBarButton
      Caption = #21462#28040
      Category = 0
      Hint = #21462#28040
      Visible = ivAlways
      ImageIndex = 147
      OnClick = bbtnCancelClick
    end
  end
  inherited rdaBrowser: TDARemoteDataAdapter
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
      end
      item
        Name = 'aSQLText'
        DataType = rtString
        Flag = fIn
      end
      item
        Name = 'aIncludeSchema'
        DataType = rtBoolean
        Flag = fIn
      end
      item
        Name = 'aMaxRecords'
        DataType = rtInteger
        Flag = fIn
      end>
    UpdateDataCall.MethodName = 'UpdateBaseTable'
    UpdateDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end
      item
        Name = 'ATablename'
        DataType = rtString
        Flag = fIn
      end
      item
        Name = 'Delta'
        DataType = rtBinary
        Flag = fIn
        Value = Null
      end>
    UpdateDataCall.Default = False
    UpdateDataCall.OutgoingDeltaParameter = 'Delta'
  end
  inherited rdaDetails: TDARemoteDataAdapter
    GetDataCall.Params = <
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
      end
      item
        Name = 'aSQLText'
        DataType = rtString
        Flag = fIn
      end
      item
        Name = 'aIncludeSchema'
        DataType = rtBoolean
        Flag = fIn
      end
      item
        Name = 'aMaxRecords'
        DataType = rtInteger
        Flag = fIn
      end>
  end
  inherited dsDetails: TDADataSource
    DataSet = tblDetails.Dataset
  end
end
